home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / lightzout.exe / LightzOut / System / aliases.out next >
Encoding:
INI File  |  1997-02-17  |  23.0 KB  |  551 lines
  1. [Aliases]
  2. n0=onoff {
  3. n1=  set %privnotice off
  4. n2=  .timer 1 5 /set %privnotice on
  5. n3=}
  6. n4=title {
  7. n5=  titlebar (»`╖╕╖>L∞GHtz╪·T<╖╕╖`») By: Venatoriááá-ááLag: %mylag áááIdle: $duration($idle) $+ 
  8. n6=}
  9. n7=/away {
  10. n8=  if ( *1 == $null ) {
  11. n9=    .timer999 off
  12. n10=    .timer998 off
  13. n11=    nick %oldnick
  14. n12=    set %pager OFF
  15. n13=    away
  16. n14=    ame 3is back from 4-=12 $+ %awayreason $+ 4=- 2I was gone from 522 $+ %awaytime $+ 5 2to 522 $+ $atime $+ 5 3and for you idiots out there that is 4<12 $+ $duration(%away) $+ 4> 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  17. n15=    unset %away
  18. n16=set %away 0
  19. n17=    unset %awayreason
  20. n18=    unset %oldnick
  21. n19=    .disable #away
  22. n20=    halt
  23. n21=  }
  24. n22=  if ( $1 == -p ) {
  25. n23=    set %pager ON
  26. n24=    away 3I have been away sinse 12[20 $+ $atime $+ 12] 5Reason: 2 $+ *2 $+  1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  27. n25=    /ame 3is leaving 4-=12 $+ *2 $+ 4=- 3Pager is 12[20ON12] 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  28. n26=    .timer999 0 1 inc %away 1
  29. n27=    set %awaytime $atime
  30. n28=    .timer998 0 600 /pageron
  31. n29=    .enable #away
  32. n30=    set %awayreason *2
  33. n31=    set %oldnick $me
  34. n32=    /nick $$?="Enter away nick"
  35. n33=    halt
  36. n34=  }
  37. n35=  if ( $1 == -np ) {
  38. n36=    set %pager OFF
  39. n37=    /ame 3is leaving 4-=12 $+ *2 $+ 4=- 3Pager is 12[20OFF12] 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  40. n38=    away 3I have been away sinse 12[20 $+ $atime $+ 12] 5Reason: 2 $+ *2 $+  1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  41. n39=    .timer999 0 1 inc %away 1
  42. n40=    set %awaytime $atime
  43. n41=    .timer998 0 600 /pageroff
  44. n42=    .enable #away
  45. n43=    set %awayreason *2
  46. n44=    set %oldnick $me
  47. n45=    /nick $$?="Enter away nick"
  48. n46=    halt
  49. n47=  }
  50. n48=  if ( $1 == -m ) {
  51. n49=    /ame 3is leaving 4-=12 $+ *2 $+ 4=- 9This is the 10mini-away 12so I'll 4B12RB 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  52. n50=    away 3I have been away sinse 12[20 $+ $atime $+ 12] 5Reason: 2 $+ *2 $+  1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  53. n51=    .timer999 0 1 inc %away 1
  54. n52=    set %awaytime $atime
  55. n53=    .timer998 0 600 /miniaway
  56. n54=    set %awayreason *2
  57. n55=    set %oldnick $me
  58. n56=    /nick %oldnick $+ -AWAY
  59. n57=    halt
  60. n58=  }
  61. n59=  else {
  62. n60=    set %pager $$?'="Pager on or off?"
  63. n61=    if ( %pager == off ) {
  64. n62=      set %pager OFF
  65. n63=      /ame 3is leaving 4-=12 $+ *1 $+ 4=- 3Pager is 12[20OFF12] 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  66. n64=      away 3I have been away sinse 12[20 $+ $atime $+ 12] 5Reason: 2 $+ *1 $+  1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  67. n65=      .timer999 0 1 inc %away 1
  68. n66=      set %awaytime $atime
  69. n67=      .timer998 0 600 /pageroff
  70. n68=      .enable #away
  71. n69=      set %awayreason *1
  72. n70=      set %oldnick $me
  73. n71=      /nick $$?="Enter away nick"
  74. n72=      halt
  75. n73=    }
  76. n74=    if ( %pager == on ) {
  77. n75=      set %pager ON
  78. n76=      away 3I have been away sinse 12[20 $+ $atime $+ 12] 5Reason: 2 $+ *1 $+  1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  79. n77=      /ame 3is leaving 4-=12 $+ *1 $+ 4=- 3Pager is 12[20ON12] 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  80. n78=      .timer999 0 1 inc %away 1
  81. n79=      set %awaytime $atime
  82. n80=      .timer998 0 600 /pageron
  83. n81=      .enable #away
  84. n82=      set %awayreason *1
  85. n83=      set %oldnick $me
  86. n84=      /nick $$?="Enter away nick"
  87. n85=      halt
  88. n86=    }
  89. n87=  }
  90. n88=}
  91. n89=/miniaway /ame 3is away 4-=12 $+ %awayreason $+ 4=- 9This is the 10mini-away 12so I'll 4B12RB 3I have been gone for 4<12 $+ $duration(%away) $+ 4> 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  92. n90=/pageron /ame 3is away 4-=12 $+ %awayreason $+ 4=- 3Pager is 12[20ON12] 3I have been gone for 4<12 $+ $duration(%away) $+ 4> 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  93. n91=/pageroff /ame 3is away 4-=12 $+ %awayreason $+ 4=- 3Pager is 12[20OFF12] 3I have been gone for 4<12 $+ $duration(%away) $+ 4> 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  94. n92=f12 //ping $me
  95. n93=hello {
  96. n94=  me 2(»`'╖.╕(»`'╖.╕ _______________ ╕.╖'┤»)╕.╖'┤»)
  97. n95=  me 4(»`'╖.╕(»`'╖.╕ ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ ╕.╖'┤»)╕.╖'┤»)
  98. n96=  me 2----==>>>>-------> 4 $+ $$1 $+ 2 <------<<<<==----
  99. n97=  me 4(_╕.╖'┤(_╕.╖'┤ ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ `'╖.╕_)`'╖.╕_)
  100. n98=  me 2(_╕.╖'┤(_╕.╖'┤ »»»»»»»»»»»»»»» `'╖.╕_)`'╖.╕_)
  101. n99=}
  102. n100=ms /join #mIRC_Scripts
  103. n101=lamer {
  104. n102=  /ece $$1 gets a 9,1 [---------{10}]  on the lamer meter. | /r $me crowns $$1 King of all lamers \\|// 
  105. n103=  /me pulls out a 357-Magum to take out the lamer.
  106. n104=  /sound barrage.wav 4fires.
  107. n105=  .timer 1 5 /kick # $$1 4,1LAMER: 4,1DESTROYED
  108. n106=}
  109. n107=/smartmsg {
  110. n108=  if $1 = -h { echo -a -n = normal wierd text | echo -a -c = normal text, in colour | echo -a -a = Wierd text in colour | echo -a -s = Colour, switching cases | echo -a -b = Bold/normal, switching cases | echo -a -r = Reversed | halt }
  111. n109=  set %string *2 | unset %wierdbit | %substringnum = 1 | unset %wphrase
  112. n110=  if -r isin $1 { %charnum = $len(%string) | :nickstart
  113. n111=    if %charnum > 0 {
  114. n112=      if $asc($mid(%charnum,1,*2)) = 32 { set %wphrase %wphrase $chr(32) | dec %charnum 1 | goto nickstart }
  115. n113=      else { set %wphrase %wphrase $+ $mid(%charnum,1,*2) | dec %charnum 1 | goto nickstart }
  116. n114=    }
  117. n115=    else {
  118. n116=      if $1 = -rg { notice $nick %wphrase | halt }
  119. n117=      if $1 = -r { msg $chan %wphrase | halt }
  120. n118=    }
  121. n119=  }
  122. n120=  :wierdstart
  123. n121=  if %substringnum <= $len(%string) { set %wierdbit [ $mid(%substringnum,1,%string) ] | set %length $len(%ltr [ $+ [ %wierdbit ] ] )
  124. n122=    if $asc(%wierdbit) = 32 { set %wphrase %wphrase $+ _ | goto next }
  125. n123=    else {
  126. n124=      if %colour = 31 set %colour 17 | inc %colour 1 | %backcolour = %colour + 2
  127. n125=      if $1 = -n set %wierdtype $mid($rand(1,%length),1,%ltr [ $+ [ %wierdbit ] ] )
  128. n126=      if $1 = -a set %wierdtype  [ %colour ] $mid($rand(1,%length),1,%ltr [ $+ [ %wierdbit ] ] ) 
  129. n127=      if $1 = -c set %wierdtype  [ %colour ] [ %wierdbit ] 
  130. n128=      if $1 = -s {
  131. n129=        if %case = u { set %wierdtype $upper(  [ %colour ] , [ %backcolour ] [ %wierdbit ] ) | set %case l | goto set }
  132. n130=        if %case = l { set %wierdtype $lower(  [ %colour ] , [ %backcolour ] [ %wierdbit ] ) | set %case u }
  133. n131=      }
  134. n132=      if $1 = -b {
  135. n133=        if %bold = y { set %wierdtype $upper($mid($rand(1,%length),1,%ltr [ $+ [ %wierdbit ] ] )) | set %bold n | goto set }
  136. n134=        if %bold = n { set %wierdtype $lower(  [ $mid($rand(1,%length),1,%ltr [ $+ [ %wierdbit ] ] ) ] ) | set %bold y }
  137. n135=      }
  138. n136=      :set | set %wphrase %wphrase $+ %wierdtype
  139. n137=    }
  140. n138=    :next | inc %substringnum 1 | goto wierdstart
  141. n139=  }
  142. n140=  :wierdsay | %wphrase = $remove(%wphrase,$chr(32)) | %wphrase = $replace(%wphrase,_,$chr(32))
  143. n141=  if %smartmsg = on { msg $chan %wphrase | halt }
  144. n142=  if %smartmsg = bot { describe $chan is using 1The <6ò1> 6Aut1706Bot 1<6ò1> %wphrase '0,30930,167, by _Qu12^rtZ_ | halt }
  145. n143=  if %smartmsg = other quit %wphrase
  146. n144=}
  147. n145=/smart /set %bold y | /set %caps u | /set %case u | set %smartmsg on | smartmsg *1
  148. n146=/ss set %smartmsg bot | smartmsg -a SmartSpeech
  149. n147=/big {
  150. n148=  set %letfile letters.ini
  151. n149=  %word = $$1
  152. n150=  set %bigcol  $+ $rand(1,15)
  153. n151=  if (# = $null) { set %active /me }
  154. n152=  else { set %active describe # %bigcol }
  155. n153=  %lword = $len(%word) 
  156. n154=  if (%lword > 9) { unset %*word | echo 4 -s 2Word is too long. Has to be shorter than 9 letters | halt } 
  157. n155=  %i = 1  | %ln = 1 | %ltn = 1 | %write1 = $chr(160) | %write2 = $chr(160) | %write3 = $chr(160) | %write4 = $chr(160) | %write5 = $chr(160)
  158. n156=  :mw
  159. n157=  if ($mid(%i,1,%word) = $null) { goto makebig } | if ($mid(%i,1,%word) = %space) { set %letn $+ %i | inc %i 1 | goto mw } 
  160. n158=  set %letr $+ %i $mid(%i,1,%word) | inc %i 1 | goto mw
  161. n159=  :makebig | %ln = 1 | %ltn = 1
  162. n160=  :nl | set %write $+ %ln  %write [ $+ [ %ln ] ]  $readini %letfile %letr [ $+ [ %ltn ] ]  %ln |  inc %ltn 1 
  163. n161=  if (%ltn > %lword) { inc %ln 1 | %ltn = 1 | if (%ln > 5) { goto end } } | goto nl
  164. n162=  :end |  %active %write1 |  %active %write2 |  %active %write3 |  %active %write4 |  %active %write5
  165. n163=  unset %ln %ltn %write* %letr* %word* %lword %active* | halt
  166. n164=  describe #á
  167. n165=}
  168. n166=/ece {
  169. n167=  %c = *1
  170. n168=  set %c $replace(%c,a,4a)
  171. n169=  set %c $replace(%c,b,3B)
  172. n170=  set %c $replace(%c,c,6C) 
  173. n171=  set %c $replace(%c,d,7D) 
  174. n172=  set %c $replace(%c,e,4e) 
  175. n173=  set %c $replace(%c,f,12F) 
  176. n174=  set %c $replace(%c,g,13G) 
  177. n175=  set %c $replace(%c,h,6H) 
  178. n176=  set %c $replace(%c,i,4i) 
  179. n177=  set %c $replace(%c,j,J) 
  180. n178=  set %c $replace(%c,k,3K) 
  181. n179=  set %c $replace(%c,l,L) 
  182. n180=  set %c $replace(%c,m,4M) 
  183. n181=  set %c $replace(%c,n,6N)
  184. n182=  set %c $replace(%c,o,4o) 
  185. n183=  set %c $replace(%c,p,12P) 
  186. n184=  set %c $replace(%c,q,Q) 
  187. n185=  set %c $replace(%c,r,13R) 
  188. n186=  set %c $replace(%c,s,7S) 
  189. n187=  set %c $replace(%c,t,T) 
  190. n188=  set %c $replace(%c,u,4u) 
  191. n189=  set %c $replace(%c,v,V) 
  192. n190=  set %c $replace(%c,w,12W) 
  193. n191=  set %c $replace(%c,x,7X) 
  194. n192=  set %c $replace(%c,y,Y) 
  195. n193=  set %c $replace(%c,z,6z) 
  196. n194=  set %c $replace(%c,?,12┐15?) 
  197. n195=  say %c
  198. n196=  unset %c
  199. n197=}
  200. n198=/bac {
  201. n199=  unset %final
  202. n200=  unset %endreverse
  203. n201=  set %sections $token(0,32,*1)
  204. n202=  :revstart
  205. n203=  if (%sections == 0) goto revend  
  206. n204=  set %reverseme $token(%sections,32,*1)
  207. n205=  set %length $len(%reverseme)
  208. n206=  set %backtext $mid(%length,1,%reverseme)  
  209. n207=  dec %length 1  
  210. n208=  :backstart
  211. n209=  if (%length == 0) goto backend
  212. n210=  set %tempback $mid(%length,1,%reverseme)
  213. n211=  set %backtext %backtext $+ %tempback 
  214. n212=  dec %length 1
  215. n213=  goto backstart
  216. n214=  :backend
  217. n215=  set %reversed_text %backtext
  218. n216=  set %temp %reversed_text
  219. n217=  set %final %final %temp
  220. n218=  dec %sections 1
  221. n219=  goto revstart  
  222. n220=  :revend
  223. n221=  set %endreverse %final
  224. n222=  say %final
  225. n223=}
  226. n224=/bg { %num = 1 | unset %msg  | %msg =  | %color = p
  227. n225=  :start
  228. n226=  if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
  229. n227=  if %color == y  { %num2 = 9 | %num3 = 1 | %color = p | goto add }
  230. n228=  :add
  231. n229=  if $mid(%num,1, *1) != $null {
  232. n230=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  233. n231=    inc %num 
  234. n232=  goto start  }
  235. n233=  say %msg
  236. n234=}
  237. n235=/cc { %num = 1 | unset %msg  | %msg =  | %color = p
  238. n236=  :start
  239. n237=  if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
  240. n238=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  241. n239=  :add
  242. n240=  if $mid(%num,1, *1) != $null {
  243. n241=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  244. n242=    inc %num 
  245. n243=  goto start  }
  246. n244=  say %msg
  247. n245=}
  248. n246=/ec {
  249. n247=  set %ftalk *1
  250. n248=  %ftalk = $replace(%ftalk,a,2σ)
  251. n249=  %ftalk = $replace(%ftalk,b,3■)
  252. n250=  %ftalk = $replace(%ftalk,c,4╟)
  253. n251=  %ftalk = $replace(%ftalk,d,5╨)
  254. n252=  %ftalk = $replace(%ftalk,e,6δ)
  255. n253=  %ftalk = $replace(%ftalk,f,7F)
  256. n254=  %ftalk = $replace(%ftalk,g,8G)
  257. n255=  %ftalk = $replace(%ftalk,h,9H)
  258. n256=  %ftalk = $replace(%ftalk,i,10ε)
  259. n257=  %ftalk = $replace(%ftalk,j,11J)
  260. n258=  %ftalk = $replace(%ftalk,k,12K)
  261. n259=  %ftalk = $replace(%ftalk,l,13ú)
  262. n260=  %ftalk = $replace(%ftalk,m,14M)
  263. n261=  %ftalk = $replace(%ftalk,n,15±)
  264. n262=  %ftalk = $replace(%ftalk,o,2°)
  265. n263=  %ftalk = $replace(%ftalk,p,3╢)
  266. n264=  %ftalk = $replace(%ftalk,q,4Q)
  267. n265=  %ftalk = $replace(%ftalk,r,5«)
  268. n266=  %ftalk = $replace(%ftalk,s,6º)
  269. n267=  %ftalk = $replace(%ftalk,t,7T)
  270. n268=  %ftalk = $replace(%ftalk,u,8╡)
  271. n269=  %ftalk = $replace(%ftalk,v,9V)
  272. n270=  %ftalk = $replace(%ftalk,w,10\\')
  273. n271=  %ftalk = $replace(%ftalk,x,11╫)
  274. n272=  %ftalk = $replace(%ftalk,y,12Ñ)
  275. n273=  %ftalk = $replace(%ftalk,z,12Z)
  276. n274=  %ftalk = $replace(%ftalk,!,4!)
  277. n275=  %ftalk = $replace(%ftalk,?,4?)
  278. n276=  %ftalk = $replace(%ftalk,*,5*)
  279. n277=  %ftalk = $replace(%ftalk,^,6^)
  280. n278=  %ftalk = $replace(%ftalk,$,7$)
  281. n279=  %ftalk = $replace(%ftalk,@,9@)
  282. n280=  %ftalk = $replace(%ftalk,&,10&)
  283. n281=  %ftalk = $replace(%ftalk,",11")
  284. n282=  %ftalk = $replace(%ftalk,<,12<)
  285. n283=  %ftalk = $replace(%ftalk,>,13>!)
  286. n284=  SAY %ftalk
  287. n285=}
  288. n286=/e {
  289. n287=  set %ftalk *1
  290. n288=  %ftalk = $replace(%ftalk,a,σ)
  291. n289=  %ftalk = $replace(%ftalk,b,▀)
  292. n290=  %ftalk = $replace(%ftalk,c,⌐)
  293. n291=  %ftalk = $replace(%ftalk,d,╨)
  294. n292=  %ftalk = $replace(%ftalk,e,δ)
  295. n293=  %ftalk = $replace(%ftalk,f,F)
  296. n294=  %ftalk = $replace(%ftalk,g,G)
  297. n295=  %ftalk = $replace(%ftalk,h,H)
  298. n296=  %ftalk = $replace(%ftalk,i,ε)
  299. n297=  %ftalk = $replace(%ftalk,j,J)
  300. n298=  %ftalk = $replace(%ftalk,k,K)
  301. n299=  %ftalk = $replace(%ftalk,l,ú)
  302. n300=  %ftalk = $replace(%ftalk,m,M)
  303. n301=  %ftalk = $replace(%ftalk,n,±)
  304. n302=  %ftalk = $replace(%ftalk,o,°)
  305. n303=  %ftalk = $replace(%ftalk,p,╢)
  306. n304=  %ftalk = $replace(%ftalk,q,Q)
  307. n305=  %ftalk = $replace(%ftalk,r,«)
  308. n306=  %ftalk = $replace(%ftalk,s,º)
  309. n307=  %ftalk = $replace(%ftalk,t,t)
  310. n308=  %ftalk = $replace(%ftalk,u,╡)
  311. n309=  %ftalk = $replace(%ftalk,v,V)
  312. n310=  %ftalk = $replace(%ftalk,w,\\')
  313. n311=  %ftalk = $replace(%ftalk,x,╫)
  314. n312=  %ftalk = $replace(%ftalk,y,Ñ)
  315. n313=  %ftalk = $replace(%ftalk,z,Z)
  316. n314=  say %ftalk
  317. n315=}
  318. n316=/r {
  319. n317=  set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  320. n318=  :loop
  321. n319=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  322. n320=  inc %p
  323. n321=  if ( $mid(%p,1,%i) != á) { inc %c }
  324. n322=  if ( %c > 6 ) { set %c 1 }
  325. n323=  if ( $mid(%p,1,%i) != $null ) { goto loop }
  326. n324=  say %o
  327. n325=  unset %o %i %p %c
  328. n326=}
  329. n327=/brick { %num = 1 | unset %msg  | %msg =  | %color = p
  330. n328=  :start
  331. n329=  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  332. n330=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  333. n331=  :add
  334. n332=  if $mid(%num,1, *1) != $null {
  335. n333=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  336. n334=    inc %num 
  337. n335=  goto start  }
  338. n336=  say %msg
  339. n337=}
  340. n338=/bw { %num = 1 | unset %msg  | %msg =  | %color = p
  341. n339=  :start
  342. n340=  if %color == p { %num2 = 1 | %num3 = 16 | %color = y | goto add }
  343. n341=  if %color == y  { %num2 = 16 | %num3 = 1 | %color = p | goto add }
  344. n342=  :add
  345. n343=  if $mid(%num,1, *1) != $null {
  346. n344=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  347. n345=    inc %num 
  348. n346=  goto start  }
  349. n347=  say %msg
  350. n348=}
  351. n349=/wr { %num = 1 | unset %msg  | %msg =  | %color = p
  352. n350=  :start
  353. n351=  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
  354. n352=  if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
  355. n353=  :add
  356. n354=  if $mid(%num,1, *1) != $null {
  357. n355=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  358. n356=    inc %num 
  359. n357=  goto start  }
  360. n358=  say %msg
  361. n359=}
  362. n360=/rg { %num = 1 | unset %msg  | %msg =  | %color = p
  363. n361=  :start
  364. n362=  if %color == p { %num2 = 9 | %num3 = 4 | %color = y | goto add }
  365. n363=  if %color == y  { %num2 = 4 | %num3 = 9 | %color = p | goto add }
  366. n364=  :add
  367. n365=  if $mid(%num,1, *1) != $null {
  368. n366=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  369. n367=    inc %num 
  370. n368=  goto start  }
  371. n369=  say %msg
  372. n370=}
  373. n371=/atime {
  374. n372=  set %hr $token(1,58,$time)
  375. n373=  set %min $token(2,58,$time)
  376. n374=  if (%hr == 0) { set %hr 12 | set %sub am }
  377. n375=  elseif (%hr < 12) { set %sub am }
  378. n376=  elseif (%hr == 12) { set %sub pm }
  379. n377=  else { %hr = %hr - 12 | set %sub pm }
  380. n378=  return %hr $+ : $+ %min $+ %sub
  381. n379=}
  382. n380=lmflood {
  383. n381=  /kick $chan $nick 10I don't think 18 $+ %length $+  10is less than 18 $+ %maxchars $+  10in fact I think it is 18 $+ %more $+  10more 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  384. n382=  ban -u20 $chan $nick 3
  385. n383=  .notice $nick Don't flood the channel... You have been banned for a while. 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  386. n384=}
  387. n385=inchan {
  388. n386=  set %loop 1
  389. n387=  set %number 0
  390. n388=  :loop
  391. n389=  if %loop > $ial(*,0) goto end
  392. n390=  if (($ial(*,%loop).host == $$1) && ($ial(*,%loop).nick ison $$2)) inc %number
  393. n391=  inc %loop
  394. n392=  goto loop
  395. n393=  :end
  396. n394=  return %number
  397. n395=}
  398. n396=clones {
  399. n397=  if ( $$2 == -e ) echo 2  1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`») Searching for clones in 20 $+ $$1
  400. n398=  if ( $$2 == -m ) msg $$1  1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`») Searching for clones in 20 $+ $$1
  401. n399=  set %loops 1
  402. n400=  set %count 1
  403. n401=  :loop
  404. n402=  if %loops > $nick(%loops,$$1) { goto finish | set %loops 1 }
  405. n403=  if $ial($address($nick(%loops,$$1),2),0) > 1 {
  406. n404=    if $inchan($remove($address($nick(%loops,$$1),2),*!*@),$$1) == $ial($address($nick(%loops,$$1),2),0) {
  407. n405=      if %done [ $+ [ $address($nick(%loops,$$1),2) ] ] == $null { set % $+ clone $+ $remove($address($nick(%loops,$$1),2),*!*@) 12 $+ $nick(%loops,$$1) | set %done $+ $address($nick(%loops,$$1),2) 0  }
  408. n406=      else set % $+ clone $+ $remove($address($nick(%loops,$$1),2),*!*@)  [ % [ $+ [ clone [ $+  [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ] ]  $+ , $+ $chr(160) $+ $nick(%loops,$$1) 
  409. n407=      inc %done $+ $address($nick(%loops,$$1),2) 
  410. n408=      if %done [ $+ [ $address($nick(%loops,$$1),2) ] ] == $ial($address($nick(%loops,$$1),2),0) {
  411. n409=        if ( $$2 == -e ) echo 2 Clone set 10 $+ %count $+ :12 % [ $+ [ clone [ $+ [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ]
  412. n410=        if ( $$2 == -e ) echo 2 Cloning Address: 20 *!*@ $+ $remove($address($nick(%loops,$$1),2),*!*@)
  413. n411=        if ( $$2 == -m ) msg $$1 18Clone set 10 $+ %count $+ :12 % [ $+ [ clone [ $+ [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ]
  414. n412=        if ( $$2 == -m ) msg $$1 18Cloning Address: 20 *!*@ $+ $remove($address($nick(%loops,$$1),2),*!*@)
  415. n413=      inc %count }
  416. n414=    }
  417. n415=    inc %loops | goto loop
  418. n416=    :finish
  419. n417=    unset %clone*
  420. n418=    unset %done*
  421. n419=    set %count [ [ %count ] - 1 ]
  422. n420=    if (( %count != $null ) && ( $$2 == -e )) echo 2  1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`») Total:12 %count 2clone set(s) in 20 $+ $$1
  423. n421=    if (( %count != $null ) && ( $$2 == -m )) msg $$1  1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`») Total:12 %count 2clone set(s) in 20 $+ $$1
  424. n422=    unset %count
  425. n423=  }
  426. n424=}
  427. n425=pingecho {
  428. n426=  echo -s 2[4 $+ $nick $+ 2] 3ping reply 12(  $+ %ping_sec $+ . $+ %ping_msec secs )  1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`») 
  429. n427=  halt
  430. n428=}
  431. n429=pingnotice set %privnotice off | .notice %nick 2[4 $+ $nick $+ 2] 3ping reply 12(  $+ %ping_sec $+ . $+ %ping_msec secs )  1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`») | /set %privnotice on
  432. n430=in {
  433. n431=  set %loop 1
  434. n432=  set %number 0
  435. n433=  :loop
  436. n434=  if %loop > $ial(*,0) goto end
  437. n435=  if (($ial(*,%loop).host == $$1) && ($ial(*,%loop).nick ison $$2)) { inc %number
  438. n436=  set % $+ $ial(*,%loop).host [ % [ $+ [ $ial(*,%loop).host ] ] ] $+ $ial(*,%loop).nick $+ , $+ $chr(160) }
  439. n437=  inc %loop
  440. n438=  goto loop
  441. n439=  :end
  442. n440=  set %nicks % [ $+ [ $$1 ] ]
  443. n441=  set %letters [ [ [ $len(%nicks) - 2 ] ] ]
  444. n442=  set % $+ $$1 $left(%letters,%nicks)
  445. n443=  unset %nicks | unset %letters
  446. n444=  return %number
  447. n445=}
  448. n446=cstat {
  449. n447=  set %statircops 0
  450. n448=  set %stathere 0
  451. n449=  set %statanum 0
  452. n450=  set %statclones 0
  453. n451=  set %chanst on
  454. n452=  if ( $1 = -e ) set %cstat echo
  455. n453=  if ( $1 = -m ) set %cstat msg
  456. n454=  who $chan
  457. n455=}
  458. n456=/banlist /set -q %banlist 1 | /enable #banlist | /mode # b | .timer1 1 3 /disable #banlist
  459. n457=/qbanlist /set -q %banlist 1 | /enable #qbanlist | /mode # b | .timer1 1 3 /disable #qbanlist
  460. n458=/w /whois $$1
  461. n459=op /mode # +ooo $$1 $2 $3
  462. n460=dop /mode # -ooo $$1 $2 $3
  463. n461=j /join #$$1
  464. n462=p /part #
  465. n463=n /names #$$1
  466. n464=w /whois $$1
  467. n465=k /kick # $$1
  468. n466=q /query $$1
  469. n467=hop /part # | /join #$$1
  470. n468=send /dcc send $1 $2
  471. n469=chat /dcc chat $1
  472. n470=/ping raw -q privmsg $$1 : $+ $chr(1) $+ PING $ticks $+ $chr(1) | if ($$1 == $me ) { halt } | else { /echo -a 4[ $+ $$1 $+ ] PING }
  473. n471=/onotice {
  474. n472=  /onotice 12-=4WallOPS $active $+ 3( $+ $opnick(0,#) $+ )12=- 18 *1 12[20 $+ $atime $+ 12]
  475. n473=}
  476. n474=/omsg /omsg 12(»`╖╕╖>4WallOPS $active $+ 3( $+ $opnick(0,#) $+ )12<╖╕╖`») 18 $+ *1
  477. n475=massmsg {
  478. n476=  set %tot $nick(0,$active)
  479. n477=  set %num 1
  480. n478=  set %msg $$?="Enter mass notice"
  481. n479=  :send
  482. n480=  .msg $nick(%num,$active) 12(»`╖╕╖>4Mass Message # $+ 3( $+ $nick(0,#) $+ )12<╖╕╖`») 2 $+ %msg
  483. n481=  inc %num 1
  484. n482=  if ( %num > %tot ) { 
  485. n483=    unset %msg 
  486. n484=    unset %num
  487. n485=    unset %tot
  488. n486=    halt
  489. n487=  }
  490. n488=  else goto send
  491. n489=}
  492. n490=f4 /msg memoserv list
  493. n491=f3 /msg nickserv identify %nickserv
  494. n492=f2 /msg chanserv op # $me
  495. n493=massnotice {
  496. n494=  set %privnotice off
  497. n495=  set %tot $nick(0,$active)
  498. n496=  set %num 1
  499. n497=  set %msg $$?="Enter mass notice"
  500. n498=  :send
  501. n499=  .notice $nick(%num,$active) 12(»`╖╕╖>4Mass Notice # $+ 3( $+ $nick(0,#) $+ )12<╖╕╖`») 2 $+ %msg
  502. n500=  inc %num 1
  503. n501=  if ( %num > %tot ) { 
  504. n502=    unset %msg 
  505. n503=    unset %num
  506. n504=    unset %tot
  507. n505=    set %privnotice on
  508. n506=    halt
  509. n507=  }
  510. n508=  else goto send
  511. n509=}
  512. n510=f10 /onotice $$?="Enter op notice"
  513. n511=f5 /randmidi
  514. n512=f6 /randwav
  515. n513=randmidi {
  516. n514=  set %midi $read $mircdir\txt\midi.txt
  517. n515=  set %file $findfile($wavedir,%midi,1)
  518. n516=  set %midisize $lof(%file) / 1024
  519. n517=  sound %midi 3just played 20 $+ %midi $+  Size: 20 $+ %midisize $+ kb . 9If you want it type 12! $+ $me %midi $+  10and it will be DCC'ed to you. 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  520. n518=  unset %midi
  521. n519=  unset %midisize
  522. n520=  unset %file
  523. n521=}
  524. n522=randwav {
  525. n523=  set %wav $read $mircdir\txt\wav.txt
  526. n524=  set %file $findfile($wavedir,%wav,1)
  527. n525=  set %wavsize $lof(%file) / 1024
  528. n526=  sound %wav 3just played 20 $+ %wav $+  Size: 20 $+ %wavsize $+ kb . 9If you want it type 12! $+ $me %wav $+  10and it will be DCC'ed to you. 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  529. n527=  unset %wav
  530. n528=  unset %wavsize
  531. n529=  unset %file
  532. n530=}
  533. n531=onick {
  534. n532=  .timer 1 5 kick # $$1 Your nick has been deemed offensive. 1,8(»`╖╕╖>L∞GHtz8,1╪·T<╖╕╖`»)
  535. n533=  set %screwnick $$1
  536. n534=  %screwnick = $replace(%screwnick,$rand(A,Z),?)
  537. n535=  %screwnick = $replace(%screwnick,$rand(A,Z),?)
  538. n536=  %screwnick = $replace(%screwnick,$rand(A,Z),?)
  539. n537=  %screwnick = $replace(%screwnick,$rand(A,Z),?)
  540. n538=  mode # +b %screwnick
  541. n539=  unset %screwnick
  542. n540=}
  543. n541=/pingme {
  544. n542=  /set %mylag %ping_sec $+ . $+ %ping_msec secs | unset %ping* | halt
  545. n543=}
  546. n544=/notice {
  547. n545=  if ( %privnotice == on ) { /notice $$1 12-=4Private Notice12=- 18 *2 
  548. n546=  }
  549. n547=  else .notice $$1 *2
  550. n548=}
  551.